(COMMENT BPS 13000  )
(ALLOC '(LIST 40000 40000 NIL))
(PROGN
(FASLOAD STACK)
(setq *pure 10000. pure -1)

(SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) 

(FASLOAD DEMON FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR)
(FASLOAD GETMID)
(FASLOAD FASLAP)
(FASLOAD EREAD)
(FASLOAD STRING)
(FASLOAD NCOREQ)
(DEFPROP CGOL (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(DEFPROP CGOLREAD (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
(FASLOAD LOADED)
;(SETSYNTAX 44. 164160. 44.)		;Comma
(setq *pure nil pure nil)
(DEFUN BDUMP ()
 (SETQ ERRLIST NIL)
 (SSTATUS TOPLEVEL '(INIT0))
 (GC)
 (SUSPEND '|SAVE SYS BCOMPL| '(BCOMPL SHR SYS (1 3))))
'DONE)